#! /usr/bin/env perl
# author: maxiao
# date: 2023-03-07 14:58
# description: 测试列表上下文与标量上下文

sub diff{
    my($m) = @_;
    my $n = @_;
    print "\$m ---> $m;\t\$n ---> $n\n";
}
@array = qw(shell perl sql python c html);
$result = &diff(@array);

